home *** CD-ROM | disk | FTP | other *** search
/ The Terminal Press Kit / The Terminal Press Kit.iso / mac / Movie.dxr / Scripts_58_movie_doDownload.ls < prev    next >
Encoding:
Text File  |  2004-05-14  |  2.4 KB  |  80 lines
  1. property err
  2. global photoDL, logoDL, bioDL, layoutDL, ProNoteDL, saveMode, downloadList, gSep, defaultFolder
  3.  
  4. on doDownload
  5.   abortSave = 0
  6.   err = 0
  7.   if (saveMode <> 0) and (saveMode <> 99) then
  8.     case saveMode of
  9.       1:
  10.         destPath = baSysFolder("desktop") & defaultFolder & gSep
  11.         if not baFolderExists(destPath) then
  12.           checkError = baCreateFolder(destPath)
  13.           if checkError = 0 then
  14.             abortSave = 1
  15.             alert("Unable to create folder" & QUOTE & defaultFolder & QUOTE & "on your desktop.  Download aborted.")
  16.           end if
  17.         end if
  18.       2:
  19.         FileObj = new(xtra("fileio"))
  20.         x = displaySave(FileObj, "Select folder", "save here")
  21.         if x = EMPTY then
  22.           abortSave = 1
  23.         else
  24.           n = offset("save here", x)
  25.           destPath = x.char[1..n - 1]
  26.         end if
  27.         FileObj = 0
  28.     end case
  29.     if not abortSave then
  30.       temp = the itemDelimiter
  31.       the itemDelimiter = gSep
  32.       repeat with i = 1 to downloadList.count
  33.         SourceFile = downloadList[i]
  34.         endfile = the last item in SourceFile
  35.         err = baCopyFileProgress(SourceFile, destPath & endfile, "Always+", "Downloading", "Cancel", 4)
  36.         checkDLError(err, endfile)
  37.       end repeat
  38.       the itemDelimiter = temp
  39.       if not baFileExists(destPath & "captions.doc") then
  40.         endfile = "captions.doc"
  41.         SourceFile = the moviePath & "Captions" & gSep & endfile
  42.         err = baCopyFileProgress(SourceFile, destPath & endfile, "Always+", "Downloading", "Cancel", 4)
  43.         checkDLError(err, endfile)
  44.       end if
  45.     end if
  46.   end if
  47.   saveMode = 99
  48.   downloadList = []
  49.   photoDL = []
  50.   bioDL = []
  51.   logoDL = []
  52.   layoutDL = []
  53.   ProNoteDL = []
  54.   sendAllSprites(#resetHilite)
  55.   sendAllSprites(#reSetSelect)
  56. end
  57.  
  58. on checkDLError err, endfile
  59.   case err of
  60.     0:
  61.       exit
  62.     1:
  63.       alert("Invalid Source File Name " & QUOTE & endfile & QUOTE)
  64.     2:
  65.       alert("Invalid Dest File Name " & QUOTE & endfile & QUOTE)
  66.     3:
  67.       alert("Error Reading Source File " & QUOTE & endfile & QUOTE)
  68.     4:
  69.       alert("Error Writing Dest File" & QUOTE & endfile & QUOTE)
  70.     5:
  71.       alert("Error Creating Directory " & QUOTE & defaultFolder & QUOTE)
  72.     6:
  73.       alert("Dest file " & QUOTE & endfile & QUOTE, " already exits")
  74.     7:
  75.       alert("Dest file " & QUOTE & endfile & QUOTE, " newer than Source File")
  76.     9:
  77.       alert("Copy Cancelled by User")
  78.   end case
  79. end
  80.